home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 70.zip / BS1 part 70 / Belastingen 1991 NL.adf / bilpr.bel < prev    next >
Text File  |  1991-01-23  |  22KB  |  513 lines
  1. '** bilpr.bel**NiVeSoft 90 **
  2.     DIM A$(36), B$(11), C$(38), I$(18), J$(21), Z$(12), E$(11), N$(22)
  3.     DIM A(29, 2), B(29, 11), Z(4), D(15), E(14)
  4.     GOSUB 78: GOTO 50
  5.  
  6. 2 CLS : COLOR 0, 3: PRINT " Uitprinten "; Z$(7); "-biljet ";
  7.   COLOR 3, 0: PRINT TAB(70); "IB-1990 "
  8.   PRINT STRING$(80, 61);
  9.   LOCATE 24, 1: PRINT STRING$(80, 61);
  10.   LOCATE 25, 1: COLOR 3, 0: PRINT " CTRL-C = stop printen"; TAB(70); "NiVeSoft";
  11.   COLOR 1, 0: RETURN
  12.  
  13. 8 R = R + P
  14.   IF R < 58 THEN RETURN
  15.   IF R >= 58 THEN LPRINT CHR$(12): R = P: Q = Q + 1
  16.   LPRINT TAB(4); Z$(1); TAB(36); "blad "; Q; TAB(58); "SoFi-nr "; Z$(12)
  17.   LPRINT B$(9): RETURN
  18. 10 COLOR 2, 1: LOCATE 23, 1: PRINT " Is deze vraag goed ingevuld "
  19.    COLOR 1, 0: GOTO 12
  20. 11 COLOR 2, 1: LOCATE 23, 1: PRINT " Ja of nee (j/n) ": COLOR 1, 0
  21. 12 Z$ = UCASE$(INKEY$): IF Z$ = "" THEN 12
  22.   IF Z$ = "J" OR Z$ = " " THEN Z = 1: Z$ = "JA": RETURN
  23.   IF Z$ = "N" THEN Z = 2: Z$ = "NEE": RETURN
  24.   GOTO 12
  25. 15 LOCATE 10, 1: PRINT B$(10)
  26.    LOCATE 10, 2: PRINT A$; "  "; X$; Y$; "    ": RETURN
  27. 31 LPRINT CHR$(27) + CHR$(71); I$; : LPRINT CHR$(27) + CHR$(72): RETURN
  28. 32 LPRINT CHR$(14); A$; " "; X$: LPRINT CHR$(14); " "; Y$; : LPRINT CHR$(20)
  29.    GOTO 15
  30. 35 LPRINT TAB(70); B$(5): RETURN
  31. 37 LPRINT W$; TAB(58); USING "f ######"; V: RETURN
  32. 38 LPRINT W$; TAB(70); USING "f ######"; V: RETURN
  33. 39 LPRINT W$; TAB(58); B$(5); TAB(70); USING "f ######"; V: RETURN
  34. 40 LPRINT TAB(47); "Naar verzamelstaat    fl "; USING "######"; V: RETURN
  35.  
  36. 50 ON BREAK GOSUB 1000
  37.    BREAK ON
  38.   CLS : COLOR 1, 0
  39.   LOCATE 2, 25: PRINT "* *  B E L A S T I N G  1990  * *"
  40.   LOCATE 4, 25: PRINT "-- Copyright   N i V e S o f t -- "
  41.   LOCATE 11, 25: PRINT "Uitprinten van een belastingbiljet"
  42.   LOCATE 13, 25: PRINT Z$(7); "-biljet voor "; Z$(1)
  43.   FOR W = 1 TO 100: NEXT: LOCATE 15, 25: PRINT "1  Aangiftebiljet printen"
  44.   LOCATE 16, 25: PRINT "2  Bijlage Buitengewone lasten printen"
  45.   LOCATE 18, 25: PRINT "0  Hoofdmenu"
  46.   LOCATE 22, 1: COLOR 2, 1: PRINT " Toets uw keuze in ": COLOR 1, 0
  47. 52 Y$ = INKEY$: IF Y$ = "" THEN 52
  48.   IF Y$ < "0" OR Y$ > "2" THEN 52
  49.   IF Y$ = "0" THEN 999
  50. 54 IF Z$(7) = "A" THEN B = 1: GOTO 55
  51.    IF Z$(7) = "E" OR Z$(7) = "T" THEN B = 2: GOTO 56
  52. 55 FOR X = 5 TO 22: N$(X) = STR$(X): N$(X) = MID$(N$(X), 2, 2): NEXT X
  53.    GOTO 58
  54. 56 N$(5) = "4": N$(6) = "5": N$(7) = "6": N$(8) = "7": N$(12) = "9"
  55.    N$(13) = "10": N$(14) = "11": N$(15) = "12": N$(16) = "13": N$(17) = "14"
  56.    N$(18) = "15": N$(20) = "16": N$(22) = "17"
  57. 58 CLS : GOSUB 2: LOCATE 12, 18: PRINT "Staat uw printer ON LINE ?"
  58.   GOSUB 11: GOSUB 2: IF Z = 2 THEN 50
  59.   LOCATE 10, 3: PRINT "Even geduld A.U.B."
  60.   GOSUB 60: GOSUB 62
  61.  
  62.   IF Y$ = "1" THEN 100
  63.   IF Y$ = "2" THEN 400
  64.  
  65. 60 OPEN "I", #1, "tkst.001"
  66.   FOR X = 1 TO 9: LINE INPUT #1, B$(X): NEXT
  67.   FOR X = 1 TO 36: LINE INPUT #1, A$(X): NEXT
  68.   FOR X = 1 TO 36: LINE INPUT #1, C$(X): NEXT
  69.   CLOSE #1
  70.   B$(10) = STRING$(150, " "): B$ = "   ": C$ = "    ": D$ = "     "
  71.   IF B = 2 THEN C$(30) = C$(34): C$(31) = C$(35): C$(32) = C$(36)
  72.   RETURN
  73. 62 OPEN "I", #1, "data.001"
  74.    FOR X = 1 TO 29: INPUT #1, A(X, 1), A(X, 2): NEXT
  75.    FOR X = 1 TO 21: LINE INPUT #1, J$(X): NEXT
  76.    FOR X = 1 TO 18: LINE INPUT #1, I$(X): NEXT
  77.    FOR X = 1 TO 29
  78.    FOR Y = 1 TO 11: INPUT #1, B(X, Y): NEXT
  79.    NEXT
  80.    INPUT #1, D
  81.    CLOSE #1: RETURN
  82. 63 OPEN "I", #1, "data.002"
  83.    FOR X = 1 TO 15: INPUT #1, D(X): NEXT
  84.    FOR X = 1 TO 14: INPUT #1, E(X): NEXT
  85.    FOR X = 1 TO 11: LINE INPUT #1, E$(X): NEXT
  86.    CLOSE #1: RETURN
  87.  
  88. 64 OPEN "I", #1, "tkst.002"
  89.    FOR X = 1 TO 33: LINE INPUT #1, C$(X): NEXT
  90.    CLOSE #1: RETURN
  91. 66 OPEN "I", #1, "tkst.003"
  92.    FOR X = 1 TO 35: LINE INPUT #1, C$(X): NEXT
  93.    CLOSE #1: RETURN
  94. 68 OPEN "I", #1, "tkst.004"
  95.    FOR X = 1 TO 35: LINE INPUT #1, C$(X): NEXT
  96.    CLOSE #1: RETURN
  97. 70 OPEN "I", #1, "tkst.005"
  98.    FOR X = 1 TO 38: LINE INPUT #1, C$(X): NEXT
  99.    CLOSE #1: RETURN
  100. 72 OPEN "I", #1, "tkst.006"
  101.    FOR X = 1 TO 25: LINE INPUT #1, C$(X): NEXT
  102.    CLOSE #1: RETURN
  103. 74 OPEN "I", #1, "tkst.007"
  104.    FOR X = 1 TO 38: LINE INPUT #1, C$(X): NEXT
  105.    CLOSE #1: RETURN
  106. 76 OPEN "I", #1, "tkst.008"
  107.    FOR X = 1 TO 34: LINE INPUT #1, C$(X): NEXT
  108.    CLOSE #1: RETURN
  109. 78 OPEN "I", #1, "naam.dat"
  110.    FOR X = 1 TO 12: LINE INPUT #1, Z$(X): NEXT
  111.    FOR X = 1 TO 4: INPUT #1, Z(X): NEXT
  112.    CLOSE #1: RETURN
  113.  
  114. 100 LPRINT "   Aangiftebiljet-"; Z$(7); TAB(60); Z$(5)
  115.   LPRINT "   Inkomstenbelasting 1990"
  116.   LPRINT "   ten name van:   "; Z$(1)
  117.   LPRINT TAB(20); Z$(2); TAB(50); "SoFi-nummer: "; Z$(12)
  118.   LPRINT TAB(20); Z$(3); " "; Z$(4)
  119.   LPRINT : LPRINT B$(9): R = 0: Q = 1
  120.  
  121. 101 GOSUB 76: LPRINT
  122.    A$ = "": X$ = C$(1): Y$ = "": P = 50: GOSUB 8: GOSUB 32
  123.    LPRINT C$(2): LPRINT : LPRINT "Inkomsten": LPRINT
  124.    W$ = N$(6) + C$(3) + N$(5): V = A(6, 1): GOSUB 37: IF B = 2 THEN 102
  125.    W$ = C$(4): V = A(9, 1): GOSUB 37: N$(1) = "h": N$(2) = "c": N$(3) = "27e"
  126. 102 IF B = 2 THEN C$(5) = C$(29): N$(1) = "c ": N$(2) = " ": N$(3) = "   "
  127.    W$ = C$(5): V = A(10, 1): GOSUB 37: IF B = 2 THEN 103
  128.    W$ = C$(6): V = A(11, 1): GOSUB 37
  129.    W$ = C$(7): V = A(10, 2): GOSUB 37
  130. 103 W$ = N$(12) + N$(1) + C$(8): V = A(12, 1): GOSUB 37
  131.    W$ = N$(13) + C$(9): V = A(13, 1): GOSUB 37
  132.    W$ = N$(16) + N$(2) + C$(10): V = A(16, 1): GOSUB 37
  133.    LPRINT TAB(58); B$(5)
  134.    W$ = "": V = B(29, 1): GOSUB 37
  135.    W$ = N$(8) + C$(11): V = A(8, 1): GOSUB 37
  136.    LPRINT TAB(58); B$(5)
  137.    LPRINT TAB(35); : W$ = C$(25): V = A(29, 1): GOSUB 38
  138.    IF B = 1 THEN W$ = C$(34): V = B(29, 5): LPRINT C$(33): GOSUB 38: GOTO 104
  139.    W$ = C$(31): V = A(14, 2): GOSUB 37
  140.    W$ = C$(32): V = A(20, 2): GOSUB 37
  141.    LPRINT TAB(58); B$(5); : W$ = "": V = B(29, 5): GOSUB 38
  142. 104 W$ = "": GOSUB 35: V = A(28, 1): GOSUB 38: LPRINT
  143.    LPRINT C$(26): LPRINT
  144.    IF B = 1 THEN W$ = C$(12): V = A(11, 2): GOSUB 37
  145.    W$ = N$(13) + C$(13): V = A(13, 2): GOSUB 37
  146.    W$ = N$(14) + C$(14): V = A(14, 1): GOSUB 37
  147.    W$ = N$(15) + C$(15): V = A(15, 1): GOSUB 37
  148.    W$ = N$(17) + C$(16): V = A(17, 1): GOSUB 37
  149.    W$ = N$(18) + C$(17): V = A(18, 1): GOSUB 37
  150.    IF B = 1 THEN W$ = C$(18): V = A(19, 1): GOSUB 37
  151.    W$ = N$(20) + C$(19): V = A(20, 1): GOSUB 37: IF B = 2 THEN 106
  152.    W$ = C$(20): V = A(21, 1): GOSUB 37
  153.    W$ = C$(21): V = A(23, 1): GOSUB 37
  154.    W$ = C$(22): V = A(24, 1): GOSUB 37
  155. 106 W$ = "": V = B(29, 2): GOSUB 39: GOSUB 35: IF B = 2 THEN 108
  156.    V = B(29, 3): GOSUB 38
  157.    W$ = C$(23): V = A(25, 1): GOSUB 38: GOSUB 35
  158. 108 LPRINT TAB(50); : W$ = C$(27): V = B(29, 4): GOSUB 38
  159.    W$ = N$(3) + C$(24): V = A(27, 1): GOSUB 38: GOSUB 35
  160.    LPRINT TAB(40); : W$ = C$(28): V = A(29, 2): GOSUB 38
  161.   
  162.  
  163. 110 GOSUB 60
  164.    Y$ = "": IF A(1, 1) = 0 THEN 140
  165.    A$ = "1": X$ = A$(1): P = 20: GOSUB 8: GOSUB 32
  166.    LPRINT C$(1); C$(2); C$(3)
  167.    A = D: FOR X = 1 TO A
  168.    LPRINT B$; I$(14 + X); TAB(46); I$(X); TAB(54); USING "    f ######"; B(1, X); B(1, X + 4)
  169.    NEXT
  170.    LPRINT TAB(58); B$(5); C$; B$(5)
  171.    LPRINT TAB(54); USING "    f ######"; A(1, 2); B(1, 9)
  172.    LPRINT C$(6); D$; J$(1): V = B(1, 10)
  173.    LPRINT C$(7): W$ = C$ + B$(1): GOSUB 38
  174.    LPRINT C$(9): V = B(1, 11): W$ = C$(10) + B$(1): GOSUB 38
  175.    GOSUB 35: V = A(1, 1): W$ = C$(11): GOSUB 38
  176.    LPRINT C$(12); B$; I$(5): LPRINT B$(9)
  177.  
  178. 120 A$ = "2": X$ = A$(2): P = 14: GOSUB 8: GOSUB 32
  179.    LPRINT C$(14): LPRINT B$; I$(6); TAB(41); I$(7)
  180.    LPRINT B$; I$(8); TAB(41); I$(9)
  181.    LPRINT C$(15): LPRINT C$(16): LPRINT B$; I$(10); TAB(41); I$(11)
  182.    LPRINT B$; I$(12); TAB(41); I$(13)
  183.    V = B(2, 2): W$ = C$(17): GOSUB 38
  184.    V = B(2, 3): W$ = C$(18): GOSUB 38: GOSUB 35
  185.    V = A(2, 1): W$ = C$(19): GOSUB 38: LPRINT B$(9)
  186.  
  187. 130 A$ = "3": X$ = A$(3): P = 5: GOSUB 8: GOSUB 32
  188.    IF B(3, 1) = 1 THEN V = A(3, 1): W$ = C$(21) + C$(22): GOSUB 38: V = 0: GOTO 132
  189.    IF B(3, 1) = 2 THEN V = A(3, 1): W$ = C$(21) + C$(23): GOSUB 38: V = 0: GOTO 132
  190.    V = 0: W$ = C$(21): GOSUB 38
  191.    IF B(3, 1) = 3 THEN V = A(3, 1)
  192. 132 W$ = C$(24) + B$(1): GOSUB 38: LPRINT B$(9)
  193.  
  194. 140 IF A(4, 1) = 0 THEN 150
  195.    A$ = "4": X$ = A$(4): Y$ = A$(30): P = 12: GOSUB 8: GOSUB 32: Y$ = ""
  196.    V = B(4, 1): W$ = C$(26): GOSUB 38
  197.    LPRINT C$(27): V = B(4, 2): W$ = C$(28): GOSUB 38
  198.    IF B = 1 THEN V = B(4, 3): W$ = C$(29): GOSUB 38
  199.    GOSUB 35: V = B(4, 4): W$ = C$(30): GOSUB 38
  200.    V = B(4, 5): W$ = C$(31): GOSUB 38: GOSUB 35
  201.    V = A(4, 1): W$ = C$(32): GOSUB 38: LPRINT B$(9)
  202.     
  203. 150 IF B = 2 THEN 160
  204.    IF A(5, 1) = 0 THEN 160
  205.    A$ = "5": X$ = A$(5): P = 5: GOSUB 8: GOSUB 32
  206.    V = A(5, 1): W$ = B$ + A$(5): GOSUB 38
  207.    LPRINT C$(33): LPRINT B$(9)
  208.  
  209. 160 A$ = N$(6): X$ = A$(6) + N$(5): P = 13: GOSUB 8: GOSUB 32
  210.    V = A(1, 1): W$ = "  1d    " + A$(1): GOSUB 38
  211.    V = A(2, 1): W$ = "  AF:2e " + A$(2): GOSUB 37
  212.    V = A(3, 1): W$ = "  AF:3  " + A$(3): GOSUB 37
  213.    V = B(6, 1): W$ = "": GOSUB 39: GOSUB 35: V = B(6, 2): GOSUB 38
  214.    V = A(4, 1): W$ = "  4f " + A$(4): GOSUB 38
  215.    IF B = 1 THEN V = A(5, 1): W$ = "  5  " + A$(5): GOSUB 38
  216.    GOSUB 35: V = A(6, 1): LPRINT A$; "  "; X$; : GOSUB 40: LPRINT B$(9)
  217.  
  218. 170 GOSUB 64
  219.    A$ = N$(7): X$ = A$(7): P = 33: IF B(7, 1) = 2 THEN P = 6
  220.    GOSUB 8: GOSUB 32: : N$ = "Bij " + A$
  221.    LPRINT A$; C$(1): LPRINT C$(2); TAB(50); J$(2)
  222.    IF B(7, 1) = 2 THEN LPRINT B$(9): GOTO 180
  223.    LPRINT A$; "b Naam"; A$(32); TAB(50); "geboortedatum"; A$(32)
  224.    LPRINT B$; Z$(8); TAB(50); Z$(9)
  225.    LPRINT A$; C$(3); TAB(50); J$(3)
  226.    LPRINT A$; C$(4); TAB(50); J$(4)
  227.    IF J$(5) <> "" THEN LPRINT TAB(50); "op "; J$(5)
  228.    LPRINT A$; "e"; C$(5):LPRINT C$(6); A$; "f en "; A$; "g"; C$(7): LPRINT
  229.    A = B(7, 2)
  230.    IF A = 1 THEN LPRINT C$(8): LPRINT C$(9)
  231.    IF A = 2 THEN LPRINT C$(8): LPRINT C$(10)
  232.    IF A = 3 THEN LPRINT C$(11): LPRINT C$(9)
  233.    IF A = 4 THEN LPRINT C$(11): LPRINT C$(10)
  234.    IF A = 1 THEN LPRINT N$; C$(15); C$(16); N$(6): LPRINT N$; C$(17): LPRINT C$(18)
  235.    IF A = 2 THEN LPRINT N$; C$(15); C$(16); N$(6): LPRINT N$; C$(17): LPRINT C$(19)
  236.    IF A = 3 THEN LPRINT N$; C$(15): LPRINT C$(20): LPRINT N$; C$(17): LPRINT C$(18)
  237.    IF A = 4 THEN LPRINT N$; C$(15): LPRINT C$(20): LPRINT N$; C$(17): LPRINT C$(21)
  238.    LPRINT A$; C$(30): V = B(7, 6): W$ = C$(31): GOSUB 37
  239.    LPRINT A$; C$(32): V = B(7, 7): W$ = C$(31): GOSUB 37
  240.    LPRINT A$; C$(33):LPRINT C$(31); TAB(50); J$(6)
  241.    N$(1) = C$(26) + " 8 t/m 19": N$(2) = C$(26) + " 20 t/m 26": N$(3) = " 8 t/m 26"
  242.    IF B = 2 THEN N$(1) = C$(26) + " 7 t/m 15": N$(2) = C$(26) + " 16 t/m 18": N$(3) = " 7 t/m 18"
  243.   
  244.    A = B(7, 4)
  245.    LPRINT A$; "i"; C$(5): LPRINT C$(6); N$(3); C$(7): LPRINT
  246.    IF A = 1 THEN LPRINT C$(8), , C$(12)
  247.    IF A = 1 THEN LPRINT "Bij "; N$(1); C$(22): LPRINT C$(23): LPRINT N$(2); C$(24)
  248.    IF A = 2 THEN LPRINT C$(8): LPRINT C$(13): LPRINT "U slaat "; N$(1); C$(25); N$(20); "e.v."
  249.    IF A = 3 THEN LPRINT C$(11): LPRINT C$(12)
  250.    IF A = 3 THEN LPRINT "Bij "; N$(1); C$(22); " in"; C$(28): LPRINT C$(27): LPRINT N$(2); C$(24); C$(28)
  251.    IF A = 4 THEN LPRINT C$(8): LPRINT C$(13)
  252.    IF A = 4 THEN LPRINT "Bij "; N$(1); C$(22): LPRINT C$(29): LPRINT N$(2); C$(24); C$(28)
  253.    LPRINT B$(9)
  254.    IF A = 2 THEN 300
  255.  
  256. 180 GOSUB 66
  257. 181 IF A(8, 1) = 0 THEN 190
  258.    A$ = N$(8): X$ = A$(8): P = 19: GOSUB 8: GOSUB 32
  259.    LPRINT A$; C$(1); TAB(50); J$(7)
  260.    V = B(8, 1): W$ = A$ + C$(2): GOSUB 37
  261.    V = B(8, 2): W$ = A$ + C$(3): GOSUB 38
  262.    V = B(8, 3): W$ = A$ + C$(4): GOSUB 38: GOSUB 35
  263.    V = B(8, 4): W$ = A$ + C$(5): GOSUB 38
  264.    LPRINT A$; C$(6): V = B(8, 5): W$ = C$(7): GOSUB 37
  265.    LPRINT A$; C$(8): V = B(8, 6): GOSUB 37
  266.    V = B(8, 7): W$ = A$ + C$(9): GOSUB 37
  267.    V = B(8, 8): W$ = A$ + C$(10): GOSUB 39: GOSUB 35
  268.    LPRINT A$; C$(11); : V = A(8, 1): GOSUB 40
  269.    LPRINT A$; C$(12): V = B(8, 9): W$ = C$(7): GOSUB 38
  270.    LPRINT B$(9)
  271.  
  272. 190 IF B = 2 THEN 205
  273.     IF A(9, 1) = 0 THEN 200
  274.     A$ = "9": X$ = A$(9): P = 7: GOSUB 8: GOSUB 32
  275.    LPRINT C$(14): LPRINT C$(15); TAB(50); J$(7)
  276.    LPRINT C$(16); : V = A(9, 1): GOSUB 40: LPRINT B$(9)
  277.  
  278. 200 IF A(10, 1) = 0 THEN 210
  279.    A$ = "10": X$ = A$(10): Y$ = A$(31): P = 12: GOSUB 8: GOSUB 32: Y$ = ""
  280.    LPRINT C$(17): V = B(10, 1): W$ = C$(18): GOSUB 38
  281.    LPRINT "10b"; C$(19): V = B(10, 2): GOSUB 38: GOSUB 35
  282.    V = B(10, 3): W$ = C$(20): GOSUB 38
  283.    V = B(10, 4): W$ = C$(21): GOSUB 38: GOSUB 35
  284.    LPRINT C$(22); : V = A(10, 1): GOSUB 40: LPRINT B$(9)
  285.  
  286. 205 IF B = 1 THEN 210
  287.    IF A(10, 1) = 0 THEN 210
  288.    A$ = "8": X$ = C$(19): P = 9: GOSUB 8: GOSUB 32
  289.    LPRINT "8a"; C$(19); ",": V = B(10, 1): W$ = C$(18): GOSUB 38
  290.    V = B(10, 2): W$ = C$(13): GOSUB 38: GOSUB 35
  291.    LPRINT C$(24); : V = A(10, 1): GOSUB 40: LPRINT B$(9)
  292.  
  293. 210 IF B = 2 THEN 220
  294.    IF A(11, 1) + A(11, 2) + A(10, 2) = 0 THEN 220
  295.    A$ = "11": X$ = A$(11): Y$ = A$(32) + A$(33): P = 18: GOSUB 8: GOSUB 32: Y$ = ""
  296.    V = B(11, 1): W$ = C$(23): GOSUB 38
  297.    LPRINT C$(25): V = B(11, 2): W$ = C$(26): GOSUB 38
  298.    LPRINT C$(27): V = B(11, 3): W$ = C$(28): GOSUB 38
  299.    V = B(11, 4): W$ = C$(29): GOSUB 38: GOSUB 35
  300.    V = B(11, 5): W$ = C$(30): GOSUB 38
  301.    V = B(11, 6): W$ = C$(31): GOSUB 38: GOSUB 35
  302.    LPRINT C$(32); : V = A(11, 1): GOSUB 40
  303.    LPRINT C$(33); : V = A(11, 2): GOSUB 40
  304.    LPRINT C$(34): LPRINT C$(35): V = A(10, 2): GOSUB 40: LPRINT B$(9)
  305.   
  306. 220 GOSUB 68
  307. 221 IF A(12, 1) = 0 THEN 230
  308.    A$ = N$(12): X$ = A$(12): Y$ = A$(32): P = 26: GOSUB 8: GOSUB 32: Y$ = ""
  309.    LPRINT A$; C$(1): V = B(12, 1): W$ = C$(2): GOSUB 38
  310.    V = B(12, 2): W$ = C$(3): GOSUB 38
  311.    V = B(12, 3): W$ = C$(4): GOSUB 38: GOSUB 35
  312.    V = B(12, 4): W$ = "": GOSUB 38
  313.   IF B = 2 THEN 224
  314.    V = B(12, 5): W$ = C$(5): GOSUB 37
  315.    V = B(12, 6): W$ = C$(6): GOSUB 37
  316.    V = B(12, 7): W$ = C$(7): GOSUB 39
  317.    LPRINT C$(8): V = B(12, 8): W$ = C$(9): GOSUB 38: GOSUB 35
  318.    V = B(12, 9): W$ = C$(10): GOSUB 38
  319.    G$ = "g": I$ = "i": J$ = "j": K$ = "k"
  320. 224 IF B = 2 THEN G$ = "b": I$ = "d": J$ = "e": K$ = "f": C$(12) = C$(22)
  321.    V = B(12, 10): W$ = A$ + G$ + C$(11): GOSUB 38: GOSUB 35
  322.    LPRINT A$; C$(12); : V = A(12, 1): GOSUB 40: LPRINT
  323.    LPRINT A$; I$; C$(13): LPRINT C$(14); TAB(58); : V = B(12, 11): W$ = J$(9)
  324.    GOSUB 38: LPRINT A$; J$; C$(15)
  325.    V = B(11, 10): W$ = C$(16) + A$ + "a": GOSUB 38
  326.    LPRINT A$; K$; C$(17); A$; "a moest": LPRINT C$(18); TAB(58);
  327.    V = B(11, 11): W$ = J$(10)
  328.    GOSUB 38: LPRINT B$(9)
  329.  
  330. 230 IF A(13, 1) = 0 THEN 240
  331.    A$ = N$(13): X$ = A$(13): P = 10: GOSUB 8: GOSUB 32
  332.    V = B(13, 1): W$ = A$ + C$(20): GOSUB 38
  333.    V = B(13, 2): W$ = A$ + C$(21): GOSUB 38: GOSUB 35
  334.    LPRINT A$; C$(22); : V = A(13, 1): GOSUB 40
  335.    LPRINT A$; C$(23); " "; I$(14); : W$ = C$(28): V = B(13, 4): GOSUB 38
  336.    LPRINT A$; C$(24): LPRINT C$(25); : V = A(13, 2): GOSUB 40: LPRINT B$(9)
  337.  
  338. 240 IF A(14, 1) + A(14, 2) = 0 THEN 250
  339.    A$ = N$(14): X$ = A$(14): Y$ = A$(32) + A$(33): P = 8: GOSUB 8: GOSUB 32: Y$ = ""
  340.    LPRINT A$; C$(26): V = A(14, 1): GOSUB 40
  341.    LPRINT A$; C$(19): V = A(14, 2): GOSUB 40
  342.    V = B(14, 1): W$ = A$ + C$(27): GOSUB 38: LPRINT B$(9)
  343.  
  344. 250 IF B(15, 1) = 0 THEN 260
  345.    A$ = N$(15): X$ = A$(15): Y$ = A$(32): P = 13: GOSUB 8: GOSUB 32: Y$ = ""
  346.    LPRINT A$; C$(29); N$(12); H$; " over,": LPRINT C$(35); N$(14); "b,"
  347.    V = B(15, 1): W$ = C$(30) + N$(13): GOSUB 38
  348.    V = B(15, 2): W$ = A$ + C$(31): GOSUB 38: GOSUB 35
  349.    V = B(15, 3): W$ = A$ + C$(32): GOSUB 38
  350.    V = B(15, 4): W$ = A$ + C$(33): GOSUB 38: GOSUB 35
  351.    LPRINT A$; C$(34): LPRINT C$(25); : V = A(15, 1): GOSUB 40: LPRINT B$(9)
  352.  
  353. 260 GOSUB 70
  354. 261 IF A(16, 1) = 0 THEN 270
  355.    A$ = N$(16): X$ = A$(16): P = 9: GOSUB 8: GOSUB 32
  356.    IF B = 2 THEN 264
  357.    LPRINT "16a"; C$(1): LPRINT C$(2): V = B(16, 1): W$ = C$(3): GOSUB 38
  358.    V = B(16, 2): W$ = "16b" + C$(4) + B$(1): GOSUB 38
  359.    GOSUB 35: LPRINT C$(5); : GOTO 266
  360. 264 LPRINT "13  Ontvangen alimentatie en dergelijke, en"; C$(4)
  361.    LPRINT C$; B$(1)
  362. 266 V = A(16, 1): GOSUB 40: LPRINT B$(9)
  363.  
  364. 270 IF A(17, 1) = 0 THEN 280
  365.    A$ = N$(17): X$ = A$(17): P = 9: GOSUB 8: GOSUB 32
  366.    W$ = A$ + C$(7): V = B(17, 1): GOSUB 38
  367.    W$ = A$ + C$(8): V = B(17, 2): GOSUB 37
  368.    W$ = A$ + C$(9): V = B(17, 3): GOSUB 37
  369.    W$ = A$ + C$(10): V = B(17, 4): GOSUB 39: GOSUB 35
  370.    LPRINT A$; C$(11): V = A(17, 1): GOSUB 40: LPRINT B$(9)
  371.  
  372. 280 IF A(18, 1) = 0 THEN 290
  373.    A$ = N$(18): X$ = A$(18): P = 6: GOSUB 8: GOSUB 32
  374.    LPRINT A$; C$(17)
  375.    LPRINT C$; C$(14); " G mee": V = A(18, 1): GOSUB 40: LPRINT B$(9)
  376.  
  377. 290 GOSUB 72: IF B = 2 THEN 301
  378. 292 IF A(19, 1) + A(19, 2) = 0 THEN 301
  379.    A$ = "19": X$ = A$(19): Y$ = A$(34) + " enz.": P = 17: GOSUB 8: GOSUB 32: Y$ = ""
  380.    LPRINT C$(1): V = B(19, 1): W$ = C$(2): GOSUB 38
  381.    V = B(19, 2): W$ = C$(3): GOSUB 38
  382.    LPRINT C$(4): V = B(19, 3): W$ = C$(5): GOSUB 38
  383.    LPRINT C$(6): LPRINT C$(7): V = B(19, 4): W$ = C$(5): GOSUB 38
  384.    V = B(19, 5): W$ = C$(8): GOSUB 38: GOSUB 35
  385.    LPRINT C$(9); : V = A(19, 1): GOSUB 40
  386.    LPRINT C$(17): LPRINT C$(18): V = A(19, 2): GOSUB 40: LPRINT B$(9)
  387.    GOTO 301
  388.  
  389. 300 GOSUB 72
  390. 301 IF A(20, 1) + A(20, 2) + B(20, 1) = 0 THEN 310
  391.     A$ = N$(20): X$ = A$(36): Y$ = A$(20): P = 11: GOSUB 8: GOSUB 32: Y$ = ""
  392.    LPRINT A$; "a "; C$(10): LPRINT C$(11): V = A(20, 1): GOSUB 40
  393.    LPRINT A$; "b "; C$(10): LPRINT C$(12): V = A(20, 2): GOSUB 40
  394.    IF B = 1 THEN 302
  395.    LPRINT C$(21): LPRINT C$(22); TAB(52); J$(21);
  396.    IF J$(21) = "JA" THEN LPRINT ; C$(25)
  397. 302 LPRINT B$(9)
  398.  
  399. 310 IF B = 2 THEN 320
  400.    IF A(21, 1) + A(21, 2) = 0 THEN 320
  401.    A$ = "21": X$ = A$(36): Y$ = A$(21): P = 9: GOSUB 8: GOSUB 32: Y$ = ""
  402.    LPRINT C$(13): LPRINT C$(14): V = A(21, 1): GOSUB 40
  403.    LPRINT C$(15): V = A(21, 2): GOSUB 40: LPRINT B$(9)
  404.  
  405. 320 A$ = N$(22): X$ = A$(22): P = 5: GOSUB 8: GOSUB 32
  406.    LPRINT A$; C$(16); TAB(60); Z$(10)
  407.    IF Z(4) = 3 THEN LPRINT C$(19)
  408.    IF Z(4) = 4 OR Z(4) = 5 THEN LPRINT C$(20)
  409.    LPRINT B$(9)
  410.    
  411. 325 IF B = 1 THEN 330
  412.    A$ = "18": X$ = C$(24): P = 6: GOSUB 8: GOSUB 32: W$ = ""
  413.    LPRINT C$(23): LPRINT C$(24); TAB(52); J$(19);
  414.    IF B(27, 1) <> 0 THEN V = B(27, 1): GOSUB 38: LPRINT TAB(52); C$(25)
  415.    LPRINT B$(9): GOTO 390
  416.  
  417. 330 GOSUB 74
  418. 331 IF A(23, 1) = 0 THEN 340
  419.    A$ = "23": X$ = A$(23): P = 4: GOSUB 8: GOSUB 32
  420.    LPRINT C$(1); : V = A(23, 1): GOSUB 40: LPRINT B$(9)
  421.  
  422. 340 IF A(24, 2) = 0 THEN 350
  423.    A$ = "24": X$ = A$(24): P = 10: GOSUB 8: GOSUB 32
  424.    LPRINT C$(2): LPRINT C$(3); TAB(55); J$(11)
  425.    LPRINT C$(4): LPRINT C$(5); TAB(55); J$(12)
  426.    LPRINT C$(6); : V = A(24, 1): GOSUB 40: LPRINT B$(9)
  427.  
  428. 350 IF A(25, 2) = 0 THEN 360
  429.    A$ = "25": X$ = A$(25): Y$ = A$(35): P = 16: GOSUB 8: GOSUB 32: Y$ = ""
  430.    V = B(25, 1): W$ = C$(8): GOSUB 38
  431.    LPRINT C$(9): V = B(25, 2): W$ = C$(10): GOSUB 38
  432.    LPRINT C$(11); TAB(60); J$(13)
  433.    LPRINT C$(12): V = B(25, 3): W$ = C$(13): GOSUB 38
  434.    LPRINT C$(14); TAB(60); J$(14)
  435.    LPRINT C$(15): LPRINT C$(16); TAB(50); J$(15): LPRINT B$(9)
  436.  
  437. 360 IF A(26, 1) = 0 THEN 370
  438.    A$ = "26": X$ = A$(26): P = 9: GOSUB 8: GOSUB 32
  439.    LPRINT C$(17): LPRINT C$(18); TAB(50); J$(16)
  440.    LPRINT C$(19): LPRINT C$(20); TAB(50); J$(17): LPRINT B$(9)
  441.  
  442. 370 IF A(27, 2) = 0 THEN 380
  443.    A$ = "27": X$ = A$(27): P = 15: GOSUB 8: GOSUB 32
  444.    LPRINT C$(22): LPRINT C$(23); TAB(52); J$(18): W$ = ""
  445.    LPRINT C$(24): LPRINT C$(25); TAB(52); J$(19);
  446.    V = B(27, 1): IF V <> 0 THEN GOSUB 38 ELSE LPRINT
  447.    IF V <> 0 THEN LPRINT TAB(52); C$(21)
  448.    LPRINT C$(26): LPRINT C$(27); TAB(52); J$(20);
  449.    V = B(27, 2): IF V <> 0 THEN GOSUB 38 ELSE LPRINT
  450.    IF V <> 0 THEN LPRINT TAB(52); C$(21)
  451.    LPRINT C$(28): LPRINT C$(29); TAB(52); J$(21)
  452.    IF J$(21) = "JA" THEN LPRINT TAB(52); C$(21)
  453.    LPRINT C$(30); : V = A(27, 1): GOSUB 40: LPRINT B$(9)
  454.  
  455. 380 IF A(28, 2) + B(28, 9) = 0 THEN 390
  456.    A$ = "28": X$ = A$(28): P = 11: GOSUB 8: GOSUB 32
  457.    LPRINT TAB(43); "Nederlandse":LPRINT TAB(43); C$(31); C$(32)
  458.    LPRINT C$(36); TAB(45); USING " f  ######"; B(28, 1); B(28, 2); B(28, 3)
  459.    LPRINT C$(37); TAB(45); USING " f  ######"; B(28, 4); B(28, 5)
  460.    LPRINT C$(38); TAB(45); USING " f  ######"; B(28, 6); B(28, 7)
  461.    LPRINT TAB(48); B$(5); TAB(58); B$(5)
  462.    LPRINT TAB(30); "Totaal"; TAB(45); USING " f  ######"; B(28, 8); B(28, 9)
  463.    LPRINT B$(9)
  464. 390 LPRINT CHR$(12)
  465.    GOTO 50
  466.  
  467. 400 LPRINT "   Bijlage behorende bij "; TAB(60); Z$(5)
  468.     LPRINT "   Aangiftebiljet-"; Z$(7)
  469.   LPRINT "   ten name van: "; Z$(1); TAB(50); "SoFi-nummer: "; Z$(12)
  470.   LPRINT TAB(19); Z$(2): LPRINT TAB(19); Z$(3); " "; Z$(4)
  471.   LPRINT "   BIJLAGE BUITENGEWONE LASTEN"; TAB(60);
  472.   I$ = "Model G": GOSUB 31: R = 8: Q = 1
  473.   GOSUB 70: X$ = " Bijlage buitengewone lasten": Y$ = "": GOSUB 15: N$ = N$(18)
  474.   LPRINT B$(9): GOSUB 63
  475.    LPRINT N$; C$(12): LPRINT C$(13); TAB(50); E$(7): LPRINT B$(8)
  476.    LPRINT N$; C$(15): LPRINT C$(16); TAB(50); E$(8): LPRINT B$(8)
  477.  I$ = N$ + C$(18): GOSUB 31: W$ = C$(19): V = E(1): GOSUB 38
  478.    W$ = C$(20): V = E(2): GOSUB 38: GOSUB 35
  479.    W$ = C$(21): V = E(3): GOSUB 38: LPRINT B$(8)
  480. 410 IF E(6) = 0 THEN 420
  481.  I$ = N$ + C$(22): GOSUB 31: I$ = C$(23): GOSUB 31
  482.    W$ = N$ + C$(24): V = E(5): GOSUB 38
  483.    LPRINT C$; E$(9): LPRINT C$;"  " E$(10)
  484.    W$ = N$ + C$(25) + B$(1): V = E(6): GOSUB 38
  485.    W$ = "    AF: drempel": V = E(5): GOSUB 38: GOSUB 35
  486.    V = E(7): W$ = C$(27): GOSUB 38: LPRINT B$(8)
  487. 420 IF E(8) = 0 THEN 430
  488.  I$ = N$ + C$(28): GOSUB 31: I$ = C$(29): GOSUB 31
  489.    LPRINT C$(30): LPRINT E$(11)
  490.    LPRINT C$(31): LPRINT C$(32): LPRINT C$(33): A = E(9)
  491.    FOR X = 1 TO A
  492.    LPRINT "|"; E$(X); TAB(12); "|"; E$(X + 3); TAB(24);
  493.    LPRINT USING "| f ###### "; D(X + 3); D(X + 6); D(X + 9); D(X + 12); D(X)
  494.    NEXT
  495.    GOSUB 35: W$ = C$(27): V = E(8): GOSUB 38: LPRINT B$(8)
  496. 430 IF E(10) = 0 THEN 440
  497.   I$ = N$ + C$(34): GOSUB 31: I$ = C$(35): GOSUB 31
  498.    W$ = C$(36): V = E(11): GOSUB 38
  499.    W$ = C$(37): V = E(4): GOSUB 38: GOSUB 35
  500.    W$ = C$(27): V = E(10): GOSUB 38: LPRINT B$(8)
  501. 440 IF E(12) = 0 THEN 450
  502.  I$ = N$ + C$(38): GOSUB 31
  503.    W$ = C$(36): V = E(13): GOSUB 38
  504.    W$ = C$(37): V = E(4): GOSUB 38: GOSUB 35
  505.    W$ = C$(27): V = E(12): GOSUB 38: LPRINT B$(8)
  506.  
  507. 450 W$ = "Totaal van de aftrek vraag " + N$: V = E(14): GOSUB 38
  508.    LPRINT : LPRINT TAB(60); Z$(1): LPRINT CHR$(12): GOTO 50
  509.  
  510. 999 CLS : CLEAR : LOCATE 12, 20: PRINT "Terug naar  HOOFDMENU": RUN "menu.bel"
  511. 1000 RUN
  512.  
  513.